Fudge It! 

by Don Fudge 



Create Gorgeous 
Color-Filled Scenes! 



In this column I'll discuss color- 
filling algorithms and present a 
machine language program called 
FILL4 that color-fills line drawings 
made by white lines on a black back- 
ground. The program enables you to 
create scenes easily and is fun to use. 
It does, however, require prior crea- 
tion of a line drawing picture. You 
may use HPLOT shape-drawing rou- 
tines that I have presented in earlier 
columns, or write your own. You 
might want to create an etch-a-sketch 
screen drawing program by having 
the computer HPLOT lines connecting 
various coordinates determined by 
game paddle settings (as you move 
the paddles and push a paddle button 
to cause hplot'ing from your earlier 
hi -res screen position to your newest 
position) Or simply do 
tt: POKE-16302,0:HCOLOR - 3:HPLOt 

Xl.Yl TO X2,Y2 TO X3X< TO X4,Y4 

Once that line drawing is saved 
(BSAVE line drawing, A$20O0,L$lFF8) 



you are ready to color it. When you 
key in the enclosed programs, you 
will have some great scene creation 
utilities (including the fastest color- 
fill algorithm available anywhere) . If 
you haven't the time to type pro- 
grams, I would suggest Avant-Garde's 
Paint Master Scene Utility as an inex- 
pensive scene creator. 

Scene painting is filling enclose' 
spaces with colors and/or patterns. 
The palette included here contains 
hundreds of colors/ patterns to choose 
from. Or use Listing 4 (with line 10 
modified to 10 HGR2) from my March 
inCider column to create a color pal- 
ette (see photo) nd then hit control- 
reset and type BSAVE PATRN, A$4000. 
L$1FF8. Don't forget to use POKE 
103,1: POKE 104.96: POKE 24576,0 before 
loading or running that listing. 

Start-of-Program Pokes 

A note about the above pokes. Sev- 
eral people have written saying that 



they've had trouble making pro- 
grams work after typing them from 
inCider columns. The problem in all 
cases was either that they did not 
carefully read the column and 
skipped the section about the neces- 
sary pokes, or they decided to put the 
pokes at the beginning of their graph- 
ics programs. This will not work! 

Here is what happens. The Apple 
normally loads all Applesoft pro- 
grams at $800. But to avoid having 
graphics and string or variable stor- 
age clashing in memory, you should 
begin graphics programs at $4000 if 
they use hi-res page 1, and $6CXX) if 
they use hi-res page 2. This enables 
you to ignore HIMEM and LOMEM 
and to use $800-$1FFF for subroutine 
and data table storage. Further, it al- 

Address correspondence, including inquiries 
about additional routines ami programs, to Don 
Fudge at Avant-Garde Creations, PO Box 
30160, Eugene, OR 97403. 




Some of the colors in a scene painting palette. 
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lows Basic programs to be $5600 long, 
including variable and string storage. 

POKE 103,1: POKE 104,64: POKE 
[6384,0 permits use of page 1 graphics 
and starts your Basic programs at 
$4000. POKE 103.1: POKE 104,96: POKE 
24576.0 permits use of page 1 and/or 
page 2 graphics and starts your Basic 
programs at $6000. Page 1 is $2000- 
$3FFF and page 2 is $4000-$5FFF. 

Now, it is impossible to move a 
loaded program by use of these 
pokes; if you put the pokes in line 1 , 
your program will bomb. Line 1 is 



not run until a program is entirely 
loaded and by then it is too late. So 
you must do these pokes either in IM- 
MEDIATE mode (no line number) or 
in the Hello program that boots when 
you turn on your computer and your 
drive runs. It is okay to have a line 
like 90?CHR$(4) RUN PALETTE" after a 
line such as 50 POKE 103,1: POKE 104,96: 
POKE 24576,0. 

Getting Ready 

For Listing 1 (FILM) you need 
only do CALL-151 and 9000:, and 



then start typing code, hitting re- 
turn after six lines are full and up- 
dating your address. PATRNMAKER 
(Listing 2) needs only to be keyed 
in, saved and run, from Basic. Again, 
saving the March issue's color pal- 
ette, as previously advised, is also 
viable here, but you get no patterns — 
just colors. 

Once FILL4 is keyed in, use 
BSAVE FILL4,A$9000,L$400. Then, af- 
ter you're done running PATRN- 
MAKER (POKE 103,1: POKE 104,96: 
POKE 24576,0 first) a file called 
PATRN will have been saved on your 
disk. This is the palette (a binary 
picture) your PALETTE program 
will be looking for when you choose 
your very first color. 

PALETTE, Listing 3, is another 
Basic program to key in. Once 
FILL4, PATRN. and PALETTE are 
all saved on your disk, do POKE 
103,1: POKE 104'96: POKE 24576,0 and 
run PALLETTE. 

Using the PALETTE Program 

Here are a few details you will 
need to know: 

Li If you will be loading any 
HPLOT shapes, TEST (CALL2048) 
must be on the disk. This file was 
presented in my March column as 
Listing 2. If you have no such file, 
do not worry; just avoid the HPLOT 
shape part of option 9. 

2. If you will be loading block 
shapes into your scene (also in op- 
tion 9) you will need TI^STTB, an- 
other routine presented in March. 
If you have no TESTTB, all is 
well — simply avoid using block 
shapes as additions to the screen. 

3. If you will want to use option 
13 (GO TO SCAN & SAVE SHAPE) VOU 
will need my SCANA program from 
the April inCider. It turns any part 
of the screen into a table-ized block 
shape. If you have no such file, no 
problem — just don't try to create 
block shapes with sections of the 
screen in the hi-res scenes you cre- 
ate with PALETTE. 

Incidentally, do you notice how 
I'm tying all the programs I've pre- 
sented in this column together to cre- 
ate a system w ith which you can per- 
Inim am general graphics teat von 
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(position under highest section) 

Figure 1. Sample figures to be filled. 



(fill several times) 



(position over lowest 
section) 



desire with ease and convenience? 
This Is no accident. It parallels the 
way I have written my major graph- 
ics utilities. The only problem this 
might create for you is that there will 
be so many possibilities for graphics 
creativity, you may have trouble de- 
ciding what to do next. Such is life. 

4. Pictures you save with PAL- 
ETTE will be hi-res page 1 pictures 
($2000) . If you need them in your own 
programs at $4000, simply BLOAD 
them at that address when using 
them. If you need to save screen pic- 
tures in only a few sectors and to re- 
trieve and draw them in only a few 
seconds, vou'll need to go beyond 
PALETTE to something like Paint 
Master Scene Utility. 

5. When creating line drawings, 
frame them. They will look better 
and "color wraparound" will be pre- 

l< d. HPLOT 0,0 TO 0,191 TO 279,191 
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Figure 2. Fill routine flmi ( hart. 



TO 0,0 will do it. 

6. It is best, especially on un- 
framed pictures, to start filling 
near the right side of the screen and 
work left. 

7. To quiet the cursor clicks, hit A. 

8. When filling with color, hit the 
space bar to produce an extra large 
paintbrush. 

9. To see screen coordinates when 
filling, hit C. 

10. During filling, if you hit 1-9 
you will be asking for the PAINT- 



'There will be so 
many possibilities for 
graphics creativity, you 
may have trouble deciding 
what to do next." 



BRUSH feature (which has nothing to 
do with color- filling). To move the 
paintbrush without affecting the pic- 
ture, hold down paddle button #1. 
To paint use the paddle #0 knob and 
work sideways. To paint higher or 
lower on the screen use the paddle § 1 
knob to move vertically, with or 
without holding down the paddle #1 
button (depending upon whether or 
not you want the picture to be affect- 
ed). Move the paddle #0 knob fairly 
slowly as you paint. Choose different 
heights of brush and different colors 



by hitting the space bar to stop paint- 
ing, then P for PAINTBRUSH mode and 
1-9 for height and 0-7 for color. The 
colors are black = or 4, white = 3 or 
7, green = 1, violet = 2, orange = 5, 
and blue = 6. 

1 1 . To color-fill use option 11, but 
make sure you have first picked a col- 
or via option 10 or 17. Move the cur- 
sor around the screen with the pad- 
dles, using the #0 button to fill and 
the #1 button to cease filling. 

12. Options 2-8 all relate to vector 
shape use. Use option 9 to load in 
your vector shape table first and then 
view the entire table with option 2 
(control-C for early exit), or specify 
DRAW/XDRAW, ROT (rotation), 
HCOLOR, X Y coordinates, SCALE, or 
background color via options 2-8. 

13. After loading in a block or vec- 
tor shape, with option 9 you can 
move the shape around on the screen 
(as a cursor) and print it by hitting 
button #0. Then hit any key and 
choose to have more shapes, if de- 
sired. Shape tables of the vector type 
must have standard indexes to work; 
see your Applesoft Manual. Rotate 
(ROT) 16 units for every 90 degree 
rotation desired (option 4). Upside- 
down is a rotation of 32, for example. 

14. SEE COLOR BYTE #S, option 16, 
is only for the more advanced. If you 
understand the way color bytes work 
(see my March inCider column) then 
it might be useful to see what color 
bytes you are color- filling with. Hit- 
ting C during filling gets you color 
bytes as well as X-Y coordinates. 

15. MYSTERY COLOR (option 17) 
merely gives random color bytes. 

A Dry Run 

Let's say you're running PALETTE 
now. Hit return when you see the 
notice about not erasing the screen if 
you hit the space bar, unless you have 
a line drawing already on hi-res page 
1. Use option 10 to choose a color 
and the paddles and button #0 to 
select a color or pattern. When choos- 
ing, have both dots on the palette 
color chosen as centered as possible. 
Back in the menu, select option 9 
if you have a binar> picture line 
drawing to load in and color. Re- 
member that FILL4 fills color on 
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black backgrounds only and that 
lines must Ik 1 white. 

Now use option 11 to fill color, 
with button #0 as the fill button and 
button #1 as the quit button. If there 
is nothing on the screen to fill, choose 
white (rightmost column) in the pal- 
ette. Then when in the fill subrou- 
tine, hit button #0 to fill the screen 
with white, followed by the space 
bar, and then hit to designate o 
(black) for paint color. Create lots of 
black rectangles to color-fill by using 
paddle #0 to paint, and both paddles 
and button #1 (held down) to relo- 
cate. Hit the space space bar to exit 
painting and E to exit back to menu. 
Use option 10 to choose a color and 
option 11 to go to your picture and 
color-fill the rectangles. 

If you're not having a great time, 
perhaps you need a good line draw- 
ing to color-fill with. Take care of 
that problem in the ways I have al- 
ready mentioned, or you can ask 
Avant-Garde for their Dot and Draw 
program, which has dozens of line- 
drawings you can fill. 

How to Color-Fill 

Do not fill too close to lines. Con- 
sider that the bottom of the cursor is 
where the filling commences. Use 
picture frames to avoid wraparound. 
If you are filling with a color that has 
color bytes whose values exceed 127, 
then you have a color-bit-on color. If 
the values are less than 128, then you 
have a color-bit-off color. Color clash 
(a function of Apple graphics, not 
Fudge programming) can happen if 
color-bit-on and color-bit-off colors 
are horizontally adjacent. Don't for- 
get to hit C to see color bytes of the 
current color or X-Y coordinate posi- 
tions, if necessary. 

Finally, fill as cleanly as possible. 
This means filling at the most appro- 
priate places in an enclosure. Refer to 
Figure 1 . The hardest types of figures 
to fill are tiny ones and those shaped 
like stars. 

The FILL4 routine in PALETTE 
is made with speed as priority one, 
variety of colors/ patterns as priority 
two, and completeness of color-fill of 
a complex figure as priority three. In 
my opinion an adventure game whose 



Listing 2. I'ATRXMAKER. 



i: C<1> * %:dZ.< = 42:C<3) = 85:C<4) = 127:C<5) = 170:C(6) = 217 
10 H6R2 

12 GOSUB 15: GOTO 81 

15 • = 16384:0 = 0:Z = 1824:E = 0:U = 2:XX = 16384 
20 FOR A = 1 TO 6: FOR B = 1 TO 6: 
lis FOR C = 1 TO 6: IF (A - C) 
40 FOR D = 1 TO 6: IF <A - D) 
58 N « N ♦ Is IF N > 488 THEN COLL 54315: 

52 POKE X.C< ft ■: POKE X + 1»C<B>: POKE . + 

.. + .2:048:0 o fi + U IF Q < 4 THEN 52 

53 = 0:X = XX + U + E:U = U + 2: IF 

54 = 2:E = E + 128.-X = XX + E: IF E 

55 X = X - 984: E = 128: RETURN 



IF ft - 6 = THEN 62 
(B - C) = THEN 61 
B - • * < C - D > = THEN 60 
RETURN 

Z.C(C): POKE Z + X + 1; 

42 THEN 60 
1024 THEN 60 



68 
61 
62 
63 



32 



83 



64 



NEXT 
NEXT 
NEXT 
NEXT 

OftTft 8,17,34,68,136.145,162,196,17,34.68.8,145.162,196,136,119,1:0,93 

,59,247,238,221,187,110,93,59,119,236,221.187.247.25,51,102,76,153.17 

9,230,204,51,102,76,25,179,230,204,153,42,85,42,85,170,213,170,213,85 

,42,85.42.213, 178,213, 170 
OftTft 127,127,127,127,255,255,255,255,0,0,0,8,128,128,128,128,34,68,8, 

17, 162. 196. 136. 145. 66, 6, 17, 34, 196, 136, 145, 162, 93, 59, 11 9, 118, 221, 187,2 

47,238,59.119.110,93,187,247,238,221,182,76,25,51,230,204,153,179,76, 

25,51 ,182,204. 153. 1 79. 230 
OftTft 1,21.1,22,2,21,2,22,1,5,1,6,2,5,2,6,1,13,1,14,1,15,1,16,1 .17,1.1 

9. 2. 13. 2, 14, 2, 15, 2, 16, 2, 17,2, 19. 3,23, 3.24. 4, 23. 4, 24, 3, 7, 3, 6,4. ^,4, 8. 3 

,13,3.14,3.15,3,16.3,17,3,19 
OftTft 4,13,4,14,4,15,4,16,4,17,4,19,5,25,5,26,6,25,6.26,5,13,5,14,5,15 

.5,16,5,17,5.19,6.13,6,14,6,15,6,16.6,17,6.19.7.27,7,26,6,27,6,28,7,1 

3,7,14,7,15,7,16,7,17,7,19,8,13,8,14 
DfiTft 8, 15, 8, 16. 6. 17,8. 19, 9,29. 9,30, 10. 29, 18, 30, 9.13,9, 14, 9, 15, 9, 16,9, 

17,9,19,10,13,10,14,10,15,10,16,10,17,10,19,11,31.11,32.12,31,12.32.1 

1.13.11.14.11.15.11.16,11.17,11.19.12.13.12.14,12,15.12.16.12.17,12.1 

9 

DftTft 5.6.6,7,7,8,5.7,5,8.6.8.5,5,6,6,7.7.8.8.13.13,13.14,13.15.13.16 
.13.17.13.19.14,14,14.15,14.16,14,18,14,20. 15.15.15.16.15.17,15,19,! 
,17.19,19,19.2.2 



6.16.16. 
OftTft 1 , 1 
DIM CK33 



87 
88 
90 
100 
110 

1 15 HC0L0R= 

116 N = 1 
117 
120 

FOR ft = 



33),C3< 33).C4^ 33) 
FOR ft = 1 TO 32: REftD C K ft >,C2< ft >,C3< ft >.C4". ft • 
DIM BH 141 ;.B2< 141 ; 

FOR ft = 1 TO 140: REftO BKfi>»B2Cfi>: NEXT 
8 



FOR X = TO 36 STEP 4 
FOR V = 64 TO 166 STEP 8 
130 FOR ft = TO 6 STEP 2 
135 1 = BKN):J = 62<N) 
140 HPL0T 279, V ♦ ft: 00 = PEEK (38) + 
168 POKE 00,C1' I >: POKE ftO + 1,C2< I >: 



PEEK <39) * 256 
POKE ftO + 2.C3U ' 



X 

POKE 



162 HPL0T 279, V + A + l:ftD = PEEK < 38 ) + PEEK < 39) * 256 ♦ X 
165 POKE flD.CKJ): POKE ftO + 1,C2- J >: POKE AO + 2,C3<. J •: POKE ftO 

168 NEXT 

170 N = N + 1 

180 NEXT : NEXT 

1S0 PRINT CHR* 



4 >"BSftUEPftTRN,ft$4000,L$lFF8" 



Listing 's. PALETTE. 



CLEftR : HOME : TEXT : UTA8 9: HI MEM: 36864 
0NERR 60T0 63990 
C< 1 ■ = 0:C\2) = 42:C(3> = S5:C<4> = 127:C<5> ■ 170:C(6) - 217 
PRINT : FLftSH : PRINT "IF V0U DON T HftNT SCREEN ERftSEO NOW, H1TSPOCE Bft 
P.i ftNV OTHER KEV WILL ERASE THE SCREEN. " : NORMAL 
PP = PEEK < - 16384): IF PP > 127 THEN POKE - 16368.0: IF PF 168 
THEN HGR : 60T0 7 
IF PP > 127 THEN 7 
GOTO 4 

C = 3:S = 1:R = 64:X = 139:V = 79:0$ = 



CHR$ (4): H0HE :B = 8:X$ = "0": GOTO 



9 

18 

15 
88 
69 
98 



IF Z9 = 8 THEN Z9-.li HGR2 : GOSUB 15: GOSUB 300: GOTO 10 
POKE - 16299,0: POKE - 16304,0: POKE - 16297.0 

GOSUB 190: X = 139: C = 3:B = 0: GOTO 89 

REM 

RETURN 

HOME : POKE - 16303.0: POKE - 16298.0: HC0L0R= C: SCALE= S: R0T= R 
PRINT : INUERSE : UTftB 1: HTftB 5: PRINT "00 V0U HftNT TO:": NDRnftL : PRINT 
"(0)60 TO MftlN MENU": PRINT "< 1 MJIEH SCREEN": PRINT M (2;SEE THEM ALL 
CUECTOR/, ONE AFTER ANOTHER" : PRINT "»3)SPECIFV DRAW OR XDRAW" 

: PRINT "(4>SPECIFV ROTATION- 
PRINT "<5>SPECIFV COLOR": PRINT "<6)SPECIFV COORDINATES": PRINT "<7)SP 
ECIFV SCALE": PRINT "<8)SPEC1FY BACKGROUND": PRINT "<9JL0A0 ft SHAPE 
R PICTURE": PRINT "U8)CH00SE ft PALETTE COLOR": PRINT "(11)FILL SHAPE 
S OR PICTURES" 

PRINT "< 12>MIXED-SCREEN TO FULL-SCREEN GRAPHICS( 13 )GO TO SCAN «. SAME S 
HAPE": PRINT 'M4>SAUE 34 SECTOR SCREEN PICTURE": PRINT "U5>ERASE SC 
REEN": PRINT "(16)SEE COLOR BVTE #S": PRINT "< 17 )MVSTERV COLOR" 



Listing umtiiiucd 
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l isting continued. 



110 
111 

113 



155 

158 
159 
160 



161 
198 



195 



256: SM = GO - T 



"NU".": PRINT "HIT SP 



95 INPUT "(TVPE 0-17>:";6*: IF LEN (BS > = THEN 98 

96 IF ASC >B$) > 57 OR RSC <Bt) < 48 THEN 99 

97 ZZ = URL <B*>: IF ZZ < 6 OR ZZ > 17 THEN 96 

<« ON ZZ GOTO 108,1 10,1 10^. 1200, 1388, 1600, 1788.1 880»40e»8.908.8888 .9888, 1 

6000,11666.12800.13000 
100 IF PSC <B*> = 49 THEN POKE - 16304,0: POKE - 16297.0: GOSUB 63000 

: HOME : GOTO 89 
IF BSC (B*> = 50 THEN 140 
REM 

IF ZZ = THEN END 
140 D = IHT (AO ' 256>sT « D 
145 NU = PEEK (A0> 
150 POKE 232. SM: POKE 233. D 

PRINT : PRINT "VOU'LL SEE FROM SHAPE 1 TO SHAPE 
ACE BAR TO MOUE ON TO NEXT SHAPE.": GOSUB 63666 
HGR : SCALE= S: ROT= R: HCOLOR= B: HPLOT 0.0: COLL 62454 
HCGLOR= C 

FOR OH - 1 TO NU: GOSUB 1000: UTA8 23: PRINT "SHAPE: "QH: GOSUB 63010 
: HGR : SCALE= S: ROT= R: HCOLOR= B: HPLOT 0,8: CALL 62454: HCOLOR= C 

: NEXT 

HOME : 60T0 89 

POKE 232.96: POKE 233.3: POKE 864,1: POKE 865,0: POKE 866.4: POKE 867 
.8: POKE 868.60: POKE 869.54: POKE 870.0: ROT= 0: SCHLE= U IF UU = 1 

THEN UU ■ 0: RETURN 
POKE 238,64 

200 P0 = 1.09 * POL (0): PI = .75 * POL ( 1 >: IF P0 * 18 < 288 THEN XDRQH 

1 RT P8,P1: XDRAH 1 AT P0 + 16, PI: FOR QH = 1 TO 108: NEXT : XDRAW 1 AT 
P8 + 18. PI: XDRAW 1 AT P8,P1:0 = PEEK ( - 16336; 
261 IF P6 + 18 > 279 THEN 60SUB 62090: GOTO 280 

218 PP ■ PEEK < - 16287): IF PP > 127 THEN P - PEEK (229): IF P / 2 < > 

INT (P < 2 > AND P > 6 THEN P = P - 1 
215 IF PP < 128 THEN 288 

£20 A ■ PEEK CP * PEEK (38) ♦ PEEK <39) * 256): 8 = PEEK (P + 1 + PEEK 

< 38 > + PEEK ( 39 > ♦ 256 > 
225 C = PEEK (P ♦ 2 ♦ PEEK < 38 ) + PEEK <39) * 256 ):D = PEEK ( P «■ 3 + PEEK 
<38> ♦ PEEK <39> * 256.- 
ORAM 1 AT P0.P1 ♦ I: XDRAH 1 AT P8.P1 + 1:E = PEEK <P + PEEK (38) + 
PEEK >39) * 256):F = PEEK (P + 1 + PEEK (36) * PEEK (39) * 256 >: PC* F 
6. A: POKE 7.B: POKE 8.C: POKE 9.D 
6 = PEEK cP 2 ♦ PEEK (38) + PEEK (39) * 256 ):H = PEEK (P + 3 ♦ PEEK 
(38 J + PEE* (.39) • 256 • 

POKE 220, E: POKE 221, F: POKE 222, G: POKE 223, H 
POKE 230.32: POKE - 16368,0: POKE - 16300.0: RETURN 
PRINT CHR$ ( 4 '"BL0AOPOTRN,A*4888": RETURN 
HOME : t'TAB 9: POKE - 16303,8: POKE - 16296,8 

PRINT " WHICH TVPE OF PICTURE DO VOU WISH TO FILL:": PRINT : PRINT 
"(DBLOCK OR HPLOT SHAPES" : PRINT "<2)UECT0R SHAPE i." : PRINT "(3)34 SE 
CTOR SCREEN PICTURE": PRINT : INPUT "< 1-3): ".A: IF A < 1 OR A > 3 THEN 

416 

IF A = 1 THEN 420 

ffilNT : I NUERSE : PRINT "SWITCH TO VOUR SHAPE DISK:": NORMAL : GOSUB 

63066 

OH A GOT'i 560,600.700 

PRINT : INPUT "SHAPE TABLE NAME: "iST*: IF LEN <ST$) = THEN 500 
PRINT : PRINT "IF HPLOT SHAPE DESIRED, HIT H.",: GET H$: PRINT CHR* 

(13)1 IF LEN < H* > ■ THEN 509 

IF RSC (H*) = 7 £ THEN PRINT D*"BLOADTEST ( CALL2046 >" : GOTO 509 
PRINT 0*"E?LOAOTE£ TTB" 

PRINT ; ! NUERSE : PRINT "SHITCH TO VOUR SHAPE DISK:": NORMAL : GOSUB 

6300* 

CHR9 (4>i PRINT DS"BLOAO";ST$: PRINT "ADDRESS: " PEEK (43B34) ♦ 
PEEK v 43635) + 256: PRINT "LENGTH: " PEEK (43616; ♦ PEEK (43617) * 

256 

PRINT : INPUT "SHAPE ft: "iSN: IF SN > 23 OR SN < 1 THEN 525 

i POKE 7.SN 

i IF ASC 1 H* > = 72 THEN CALL 2848: POKE - 16304,0: POKE - 16297,0: GOSUB 

S3616: GOTO 550 

PRINT : INPUT "UT: ",UT: INPUT "MB: " ,UB: INPUT "HR: ".HR: INPUT "HL: 

I ■ 1: GOSUB 1-30: POKE - 16384,0: POKE - 16297.8 

P6 ■ 1.09 * PDL <0);P1 = .75 * PDL (1): XDRAW 1 AT P6,P1: FOR Gh ■ 1 
TO 100: NEXT : XDRAH 1 AT P0,P1:O = PEEK ( - 16336) 

543 PP = PEEK ( - 16287): IF PP > 127 THEN 546 

544 IF PP < 128 THEN 542 

:*6 TU - INT (PI - (.5 * <UB - UT)»lBU = TO ♦ (UB - UT):RH = INT (<P0 * 
7 • + ( . 5 * < HR - HL > ) ): LH - Rm - ( HR - HL ' 

W OR BU > 191 ) OR (RH > 39 OR LH < 0) THEN GOSUB 60066: POP 

: GOTO 542 

.-'52, TU: POKE 253.BU: POKE 254,RH: POKE 255, LH 
CALL 2116: GET A*: PRINT CHR* < 13 >: HOME : UTA6 9: POKE - 16363,0: POKE 
- 16238,0: INPUT "DO VOU WANT ANOTHER 7 ( V'N >: ",A$: IF LEN (A*) = 

THEN 550 

IF ASC ' A*> = 89 THEN 525 

GOTO 89 

PP[N r : INPUT "SHAPE TABLE NAME: "jST*: IF LEN ( ST* > = THEN 606 
616 0* ■ CHR$ (4>: PRINT D$"BLOAD" ,ST$: PRINT "ADDRESS: " 
PEEK 143635) ♦ 256: PRINT "LENGTH: " PEEK (43616) + 

256 

611 AO = PEEK (.43634) + PEEK < 43635) 

612 PRINT "ft OF SHAPES IN TABLE: "NS 
b28 PR I NT : INPUT "SHAPE »: ",SN: IF SN 
625 POKE - 16384.8: POKE - 16297. 

638 HI = INT (AO ' 256j:L0 = AO - (HI * 256; 
640 UU ■ li GOSUB 196 

642 P0 = 1.09 + POL (8): PI = .75 + PDL CI )l XDRAW 1 AT P0,P1: FOR QW = 1 
TO 100: NEXT : XDRAW 1 AT P0,Pl:O = PEE* < - 16336) 

644 PP = PEEK ( - 16287;: IF PP ! 127 THEN 649 

645 IF PP < 126 THEN 642 

649 POKE 232,L0: POKE 233, HI: ROT= R: SCALE= S: HCOLOR= C 

650 POKE - 16384,0: POKE - 16297,0: DRAW SN AT P0.P1: GOSUB 63068: HOME 

Listing continued. 



230 



232 

235 
290 
380 
400 
410 



412 
U5 

420 
f.98 
565 

506 
508 
599 



540 



H2 



i56 



576 
G0G 



PEEK ( 43634 > * 
PEEK (43617) * 



256: NS ■ PEEK (AO) 
NS OR SN < 1 THEN 620 



scenes take a long time to fill gets old 
really fast. 

How Color-Filling Works 

In general, color-filling works like 
this. Bytes on the screen are inspected 
for on bits. If there is room to stick 
some or all of a color-byte into the 
screen-byte, it is done. Once the byte 
is "filled" the next screen-byte to the 
right is handled in the same way. If 
the byte found is not all u's (black), it 
tells the routine to quit moving to the 
right because a line has been encoun- 
tered. So now bytes are inspected 
from right to left. Once on bits (a line) 
are found, this particular horizontal 
line in the enclosed space being filled 



"If there is room to 
stick some or all of 
a color-byte into the 
screen-byte, it is done." 



is done, so we go up a line and fill. 
The same right-first-and-left-second 
sequence of inspection happens here. 
Once that line is filled, up again. . . 
until you hit a line that says you can 
no longer fill in the upward direc- 
tion. Then you start filling in a down- 
ward direction, with the same right 
and left sequence. When you hit the 
bottom of the enclosed space (too 
many on bits to allow byte-filling) the 
routine ceases. 

The fill location is where all this 
starts. But the horizontal byte col- 
umn number of the fill location is also 
the "go-back-to" X coordinate. This 
means that once you have hit a right 
boundary you go to X equals "go- 
back-to" minus 1. And when you're 
done with leftward filling due to an 
encounter with a line, you go up to 
the next line (using the "go back- to" 
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(minus 1 as Y coordinate) to use "go- 
back-to" as the X byte coordinate 
(there are 2S0 X coordinates at the bit 
level, but only 40 at the b\te level). 
Once you are done with upward fill- 
ing, use the original "go-back-to" V 
coordinate plus 1 as the next inspec- 
tion b\te for filling. 

This type of algorithm is great for 
speed, but don't be surprised if com- 
plex shapes or enclosures need extra 
fills in some places. By thinking about 
the "go-back-to" X coordinate pa- 
rameter, you can easily visualize how 
a complex figure might need multiple 
fills. When a line is encountered 
while filling upward (still using right- 
then-left inspection sequencing for 
the current horizontal line) the rou- 
tine goes all the way back down to 
the original fill location (with Y incre- 
mented by 1 since lower equals great- 
er for Y) for further inspections. For a 
hand-like figure with fingers pointing 
upward, five fills would be needed. 

See Figure 2 for a flow chart from 
the Hi- Res Secrets manual. It relates 
to the FTLL1 routine, which uses on- 
ly four color bytes. FILL4 not only 
uses $6-$9, but $DC-$DF as well (8 col- 
or bytes). 

In the Figure 2 flow chart, details 
are omitted. "Y" means Y register 
where the horizontal byte coordinate 
(0-39) is stored. This is an X, not Y, co- 
ordinate. Also,"cba"means current 



/ tsfiny COIlfftlUMl 

: UTAB 3: POKE - 16393.9: POKE - 16298.9: INPUT "DO VOU HANT ANOTHE 

R" (V'N.>: ";A»: IF LEN * At I = 9 THEN 65k' 
669 IF mSC < A* 1 = 89 THEN 629 
6?9 6OT0 8* 

?98 PRINT : INPUT "34 SECTOR PICTURE NOME 7 "iPC$: PRINT 0$"BLOAO" iPCS: HOME 

: GOTO 89 

*i8 UU = Ll FOkE - 16384.8: POKE - 16297.9: GOSUB 199 
992 IF U8 = 9 THEN U8 ■ I: PRINT CHR$ ( 4 >"BL0ADFILL4" 

995 POKE - 16399.8: POKE 239,32 

996 Z6 = 

99? IF U9 ■ 9 THEN 09 = 1: POKE - 16393.9: POKE - 16298.9: HOME : PRINT 
M PDL #8 TO FILL . POL #1 TO EXIT": 60SUB 62999: POkF - 16394.9: POKE 
- 16297.8 

!il9 P8 = 1.99 * POL (8):P1 = .75 * PDL * 1 >: GOSUB 1599: /DRAM 1 AT P9.P1 
: FOR OH = 1 TO 199: NEXT : XDRHH 1 AT P9.Pl: IF 01 = 8 THEN 2 = PEEK 
< - 16336 > 

915 = PEEK (.229;: POKE 255.0: POKE 239.Q 

916 P9 = PEEK ( - 16384 >: IF P9 > 127 THEN POrE - 16366.8: IF P9 • > 1 

95 THEN GOSUB 15999 

917 IF P9 = 195 THEN HONE : GOSUB 16880 

918 PP = PEEK i - 16286): IF PP > 12? THEN HOME : GOTO 89 
929 PP = PEEK < - 16287 >i IF PF ) 127 THEN 950 

938 IF PP < 128 THEN 918 

$58 XDRAW 1 PT P8.Pl: POKE 237. PEEK <48;: X0RPH 1 PT P9.P1: COLL 36864 
968 GOTO 918 

1888 IF X* = "D" THEN OfiPH OH PT X.V: RETURN 
1919 IF X* = "X" THEN XORPH OH PT X.V: RETURN 
1928 RETURN 

1189 HOME : UTAB 9: TEXT : INPUT "DO VOU HPNT DRPH OR XDRAH 7 <0 OR X):"iX 

*: IF Xt \ > "D" PND Hi "X" THEN 1188 

1128 HOME : GOTO 89 

1299 HOME : UTPB 9: TEXT : INPUT 'GIUE DESIRED ROTATION ( 9-255): U ;R: IF R 

8 OR X > 255 THEN 1208 
1229 nuME : GOTO 89 

1388 HOME : UTPB 9: TEXT : INPUT "GIUE OESIRED SHAPE COLOR (8-7) (9 

OR 4 = BLACK i 3 OR 7 = WHITE: 1 = GREEN i 2 = U10LET, 5 = ORANGE. 6 = 
BLUE :"iC 
1395 IF C < 9 OR C > 7 THEN 1399 
1328 HOME : GOTO 89 

1599 IF INT «, INT (PI) / 2) < > INT (PI) ✓ 2 THEN PI = PI - 1 
1510 RETURN 

1688 HOME : UTAB 3: TEXT : INPUT "GIUE DESIRED X COORD. ( 9-279 ):" iX: IF X 

< 9 OR X - 279 Tt-itN 1680 
1619 HOME : UTAB 9: TEXT : INPUT "GIUE DESIRED V COORD. (9-191 ): M iV: IF V 

8 OR V > 191 THEN 1618 
1628 HOME : GOTO 69 

:?G9 HOME : UTAB 9: TEXT : INPUT "GIUE DESIRED SCALE ( 1-255 >:" ;S: IF V < 

8 OR V > 255 THEN 1788 
1728 HOME : GOTO 89 

1888 HOHE : UTAB 9: TEXT : INPUT "GIUE DESIRED BACKGROUND COLOR (9-7) '8 
OR 4 = BLACK i 3 Oft 7 = WHITE: 1 = GREEN; 2 = UI0LET> 5 = ORANGE; 6 = 
BLUE : " iB 
1819 IF B <> 8 OR B > 7 THEN 1899 
1615 HC0L0R= B: HPLOT 9.9: CALL 62454: HCOLOR* C 
1829 HOME : GOTO 89 
8998 POKE - 16382.8: GOTO 69 

9888 FLASH : PRINT "SHITCH TO VOUR PROGRAM DISK'": NORMAL : GOSUB 63998: PRINT 

D$"RUNSCANA" 

19889 PRINT : INPUT "34 SECTOR SCREEN PICTURE NAME: ",N$: IF LEN 

\N* • = THEN 89 

i0882 PRINT : INPUT "DID VOU GET IT RIGHT 7 (V^N):";A$: IF LEN (A$) » 9 THEN 

18082 

19994 IF ASC < A$> = 73 THEN 18868 

Listing continued 



Circle 82 on Reader Service card 



Apple Does 
Shouldn't You? 

Find out why the experts shop 
Strictly Soft Ware: prices, 
service, support, selection, 
and delivery. Write for our 
free software catalog (Apple 
or IBM). 



Strictly Soft Ware 

Post Office Box 338 
Granville. Ohio 43023 
Phone Orders: 800-848-52 
Catalog requests, techmca 
assistance, Ohio orders: 
614-587-2938. 

Apple la a trademark of Apple Computer. Inc 




mm* 




s<4 



Yes! Please rush me your catalog of 
Apple [ ] IBM-PC software. 

Name 

Address 

City 




. State . 



. Zip . 



Phone ( ) 



] I am interested in large-volume purchases 
| for my company 

I Please enclose $2.50 for mailing to foreign 
I countries. IC 
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Listing continued. 

•:*80b FLASH : PRINT "SHITCH TO SHAPE OISK'": NOR HAL : 60SUB 63909: PRINT 

D*"BSAUE";N$i",A8192,L6l92": SOTO 89 
11000 HOHE : UTAB 9i TEXT : FLASH : INPUT "SURE VOU HPNT TO ERASE SCREEN 7 

(V/'N>:"ift*: IF LEN ^ A* ■ = THEN 110O8 
11019 NORMAL : IF ASC (. A* <. > 89 THEN 89 
11029 CALL 62459: 60T0 89 

12000 HOME : TEXT : UTAB 3: INUERSE : HTOB 3: PRINT "VOUR COLOR *S, IN *6 

-*9 «. *0C-*DF ARE: " 
12010 "TAB 6: PRINT "(A. S6 = " PEEk (6): PRINT : PRINT "(.B > %? = " PEEK 

(?>: PRINT : PRINT «<C) *8 = " PEEK < 8 ;: PRINT : PRINT "tD; *9 = " PEEK 
<9>: PRINT : PRINT 

2020 PRINT "(E) SDC = " PEEK <220): PRINT : PRINT "(F) SOD = " PEEK (221 

>: PRINT : PRINT 6 > *DE = " PEEK <222>: PRINT : PRINT "< H • *DF = " PEEK 

■ 223 1 

L2039 NORMAL : UTAB 23: PRINT " (HIT ANV KEV TO CONTINUE;:": GOSUB 630 

10: GOTO 89 

13969 HOME : UTAB 7: HTAB 15: PRINT "MVSTERV COLOR: " : INUERSE : UTAB 9: HTAB 

15: PRINT " ": UTAB 9: HTAB 22: PRINT " ": UTAB 11: HTAB 15: PRINT 

: I 'TAB 11: HTAB 22: PRINT " 

13018 FOR Q = 1 TO 28:01 = INT < RND Cl> # 258 -: UTAB h : HTA6 16: PR 1 NT 

0.1:62 = iNT I RNO £ 1 > * 256 >: UTAB 9: HTAB 23: PRINT 02:03 = INT < RND 
Cl> * 256,': UTAB 11: HTAB 16: PRINT 03:04 = INT < RND (1 I * 256 -: UTAB 
11: HTAB 23: PRINT 04 

13015 IF = 20 THEN 13021 

13020 (.'TAB 9: HTAB 16: PRINT " ": UTAB 9: HTAB 23: PRINT " ": UTAB 11 
: HTAB 16: PRINT " UTAB 11: HTAB 23: PRINT " ":Pk = PEEK t - 
16336 ,-:PK = PEEK « - 16336): NEXT 

13021 INUERSE : UTAB 14: HTAB 15: PRINT " ": UTAB 14: HTAB 22: PRINT 

": UTAB 16: HTAB 15: PRINT " ": "TAB 16: HTAB 22: PRINT " 

13622 05 - 51906 = 02:07 = 03:08 = Q4: UTAB 14: HTAB 16: PRINT 05: UTAB 14 

: HTAB 23: PRINT 06: UTAB 16: HTAB 16: PRINT 07: UTAB 16: HTAB 23: PRINT 

OS 

:?023 UTAB 10: PRINT "*6-*9:": UTAB 15: PRINT "$OC-*DF:" 
13025 POKE 229,05: POKE 221,06: POKE 222.07: POKE 223,08 
13626 POKE 6.01: POKE 7.02: POKE 8.03: POKE 9,04 

13030 FOR = 1 TO 80:PK = PEEK < - 16336 >: NEXT : NORMAL : PRINT MU : UTAB 

21: GOSUB 63000: GOTO 69 
15900 IF P9 = 193 OR P9 = 211 THEN Ul = 1: RETURN 

15081 Z6 = t? 

15018 HOHE : UTAB 9: POKE - 16303,0: POKE - 16298,0: PRINT "PAINTBRUSH 
HCOLOR' *8-7,:"i: GET C*: PRINT CS: PRINT CHR* ■ 13 •: IF LEN ^C$> = 

THEN 15010 

15012 IF 26 = 1 THEN PRINT : PRINT "G1UE PAINTBRUSH HEIGHT: " iz GET H$: PRINT 

H«: PRINT CHR$ (13) 
J5815 IF <»5 = 9 THEN US = 1: PRINT : PRINT "POLS TO POINT, PDL *1 BUTTON 

TO EXIT,": PRINT 
i502h IF 'ML <C$) > 7 OR UAL »C$) < THEN 15919 

15930 HT = PS - 176: HC = UAL CC*>! HCGLOR= HC: IF 26 = 1 THEN HT = UAL i 
H*> 

15931 26 = 1 

15835 POKE - 18304.0: POKE - 16297,0 

15039 IF PDL <1> * .75 < 191 - (. HT - 1 > THEN P0 = PDL <9) * 1.0942:P1 = 

PDL (i) * .75:P4 = P0:P6 = P0 
15049 IF PDL (1) * .75 < 191 - (HT - 1 > THEN P9 = POL (9) * 1.0942:P1 = 



Pf , 



PK -• 
PDL t 
:'-),°l: 
15945 IF 



5870 



PDL (0' ♦ 1.0942:P1 = 
XDRAH 1 AT 



U.041 P6 - f-4:P4 = P0 

l:i942 Z3 * 1: IF PS > P8 THEN 23 = - 1 
15043 Pk ■■■■ ^CEK ( - 16286): IF PK > 127 THEN P0 

l > * .75: XDRAH 1 AT P0,P1: FOR 0=1 TO 169: NEXT 
i-CTO 15039 

PDL ' 1 • * .75 . 191 - < HT - 1 ) THEN P2 = PDL < 9 > *■ 1.0942:P3 = 
PDL <1 > * .75: FOR P - P6 TO P2 STEP Z3: HPLOT P,P3 TO P.<P3 ♦ (!HT - 
. • * v F3 - 1 HT - i 1 > 0) * (P3 + (HT - 1 ) < 192): NEXT 
l'.-050 PP = PEEK <. - 16384): If PP > 127 THEN POKE - 16368,8: GOTO 15879 

15666 GOTO 15646 

POKE - 16383.0: POKE - 16298,9: HOHE : UTAB 9: INPUT "HANT TO PAI 
IT SOHt HDRE OR FILL OR EXIT?(TVPE p OR F OR E):"iAS: IF LEN (A$) = 
8 THEN 15076 

IF ASC (A4> = 69 THEN POP : GOTO 89 

IF ASC (ft*) = 70 THEN POKE - 16364,0: POKE - 16297,6: RETURN 
IF ASC <ft*> = 80 THEN 15810 

SOTO 15678 

PO:<E - 1S30J.0: POKE - 16298,0: UTAB 7: PRINT "COORDINATES: " : PRINT 

PRINT "X = " INT <P0j: PRINT "V = " INT (PI): PRINT : PRINT "COLOR 

■'TE5* " s PRINT 

PRINT PEEK (6)" " PEEK (7)" " PEEK (8)" " PEEK <9>: PRINT PEEK 
>28>" " PEEK (221)" " PEEK (222 )" " PEEK < 223 >: GOSUB 63008: POKE 
■ 16304,9: POKE - 16297.0: RETURN 

I ON = 1 TO 10:PH = PEEK I - 16336): NEXT : RETURN 
PRINT : PRINT "HIT A TO STOP CLICKS.": PRIHT : PRINT "HIT 1-9 TO SE 
HOR. PAINTBRUSH OF THAT HEI6HT & HIT 0-7 FOR HI-RES COLORS 8-7.": PRINT 
ri RIN T "HIT SPACE BAR TO EXIT PAINTING. " 

PRINT : PRINT "(HITTING SPACE BAR HHEN IN FILL MODE HILL GET VOU 

>HlHTBRtlSH HEIGHT OF 18 THEN VOU HERELV CHOOSE HI -RES COLOR. >" 

PRINT : PRIHT "TO HOUE POLS HITHOUT PAINTING. HOLD DDHNPDL BUTTON « 



fc.80£*0 
-.2630 



S2D05 



62930 
►",2090 



63800 
63010 
83029 
63999 
63991 
63995 
63997 
63998 
63999 



PRINT : PRINT "HIT C FOR COORD. S S. COLOR BVTES. " 

GOTO 63090 

TEXT : HOHE : PRINT "TURN PADDLE #9 COUNTERCLOCKHISE » ' ": FOR 09 = 1 

TO 18:QC = PEEK ( - 16336 >: NEXT : POKE - 16364,8: POKE - 16297,9 
: POKE - 1S299.0: RETURN 

PRINT : PRINT "(HIT ANV KEV TO CONTINUE PRINT 
PP = PEEK I - 16384): IF PP > 127 THEN POKE - 16368.9: RETURN 

GOTO 63010 

POKE 216,9:KP = PEEK <. 222 ) 

ONERR GOTO 63998 

IF KP = 254 THEN RESUHE 

PRINT -,»'V" 

CALL 54915 

GOTO 89 



byte's address ($2000-$3FFF) , and 
"CBADWN" meaas the routine that 
checks downward for the next screen 
byte (cba) inspection. 

"A or B" refers to the fact that in 
FILL1 there are two different hori- 
zontal color bytes (FILL4 has four) 
and I have named one A and one B. If 
you put A where B belongs, it changes 
color, so take care. 

"Y = 39" is a place where you hit 
the right edge of the screen while 
moving to the right (0-39 are the only 



"For a hand-like figure with 

fingers pointing upward, 
five fills would be needed/' 



possible X-byte column coordinates), 
and "Y = 0" refers to the left edge of 
the screen's byte column. 

Seed address is the starting coor- 
dinate's screen byte and the "go- 
back-to" parameter in both X and Y 
coordinate questions. ">$3FFP" re- 
fers to the bottom edge of the screen 
and "<$2000" refers to the top edge 
of the hi-res page 1 screen. 

The entire block that contains "ad- 
dress>$lFFF* and "address<$2000," 
etc., is called CBAUP since you are in- 
specting upward at this point. The 
entire block below the CBAUP block is 
the CBADWN block and contains "ad- 
drt'ss>$3FFF" and other goodies. 
The block above CBAUP is the CBALFT 
block and the one above that Is the 
( s argt block (left and right respec- 
tively). Since right, left, up and then 
down is the sequence of inspection, 
you can see that this flow chart is to 
bt* read from top to bottom. 

Next month's column is going to be 
a surprise— I'm not telling! ■ 



